Những câu hỏi liên quan
Lâm Khả Doanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:28

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

Bình luận (0)
Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 10:21

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 2 = 1 then s:=s+i;

readln;

end.

Bình luận (0)
XitsuKata
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2022 lúc 13:52

Cau 1:

Câu 2:

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n>0 && n%5==0) cout<<"Phai";

else cout<<"Khong phai";

}

Bình luận (0)
Thúy Ngọc Văng Thị
Xem chi tiết
ka nekk
10 tháng 5 2022 lúc 13:00

thiếu đề?

Bình luận (1)
thư nguỹn:>>
10 tháng 5 2022 lúc 13:00

hình như thiếu đề r .-.

Bình luận (1)
KenShi
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 12 2021 lúc 0:39

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin >>x>>y;

cout<<x<<" "<<y;

swap(x,y);

cout<<x<<" "<<y;

return 0;

}

Bình luận (0)
heo đz
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 12 2020 lúc 12:35

Nhập n xong rồi làm gì nữa bạn?

Bình luận (0)
Anh Lê duy
Xem chi tiết
Nguyễn Công Tuấn
Xem chi tiết
Chanh Xanh
28 tháng 11 2021 lúc 17:52

Tham khảo

 

  
Bình luận (0)
Nguyễn Công Tuấn
Xem chi tiết
Nhung Hoàng
Xem chi tiết
Minh Lệ
24 tháng 7 2021 lúc 9:52

Program HOC24;

var i,n: integer;

function nt(x: longint): boolean;

var j: longint;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

write('Nhap N: '); readln(n);

write('Cac uoc nguyen to cua ',n,' la: ');

for i:=1 to n do if (n mod i=0) and nt(i) then write(i,' ');

readln

end.

Bình luận (0)
Nhi Hương
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 2 2021 lúc 20:48

uses crt;

var a:array[1..100]of integer;

i:integer;

begin

clrscr;

for i:=1 to 100 do 

  begin

repeat

write('A[',i,']='); readln(a[i]);

until a[i]>0;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Bình luận (0)